Top 10k strings from Radix VII (1984)(Mme Sosostris Astro Computing)[a].z80 in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [Z80] (TOSEC-v2007-01-01) /
Back to the directory listing
4 (start/256
3 ;"Geocentric:":
3 or any other key for
3 1984 by Mme SOSOSTRIS ASTRO COMPUTING
2 y. ENABLE SEQUENCE STOP
2 a,b;o$(i):
2 ;"n. DISABLE SEQUENCE STOP":
2 ;"2. OTHER HOUSE SYSTEM";
2 ;"1. PLACIDUS HOUSES";
2 .STOP THE TAPE
2 .SECONDARY PROGRESSIONS
2 .RADIX VII IS ACCURATE TO ONE MINUTE OF ARC FOR PRACTICALLY ALL TIMES, ALSO FOR THE OUTER PLANETS
2 .PRESS ENTER TO START
2 .CHOICE OF SEVEN DIFFERENT HOUSE SYSTEMS
2 .ASTRONOMICAL OPTION
2 );"h";i$(4
2 )+":"+o$(2
2 "Heliocentric:";
2 Press 1 to
1 ~fff,.0122
1 |.}Vl,.073
1 {333,-.0066
1 {333,-.00096
1 zfff,-.1122
1 zfff,-.0038
1 yw=(au*e1)*(1
1 y,x;h$(i)(2
1 xw=-(au*e1)*
1 xk=(xx*yw-yy*xw)/(xx*xx+yy*yy)
1 xk=(xx*yh-yy*xh)/(xx*xx+yy*yy)
1 w$="RADIX VII HAS NOW BEEN LOADED
1 w$="PRESS SPACE INSTEAD OF ENTER TO CHANGE STANDARD OPTION
1 u333,.0027
1 u(h(i)+180
1 u(asc+i*y):
1 u((ll+ml)/m)
1 u((6.6460656
1 sfff,-.00099
1 s(l1-y)+148
1 s(l-l1)-125
1 s(l+l1-y)+192
1 s(l+l1)-55
1 s(l+f-y)+117
1 s(l+f)-999
1 s(l)-4586.4
1 s(f-y)+199
1 r2=RAMC+(x1/f):
1 r(s+s1*CI+s2*CI*CI):
1 r(23.452294
1 q(a,y)=q(a,y)+1
1 pf=asc+c(10
1 nob,start-256
1 n. DISABLE SEQUENCE STOP
1 n$="EAMEVEMAJUSAURNEPLNO"
1 ml=ml-411.6
1 ml=ml+2369.9
1 ml=22639.6
1 mb=18461.5
1 l=x(i)-r2:
1 l=(ll-g1)/m:
1 l1=((ll-d)-g)/m:
1 kQ,58517.8039
1 k(i)=k(i)-1
1 k(i)=k(i)+360
1 k(i)<h(j+1
1 gmt=gmth+gmtm/60
1 g1=1203586
1 g$="Regiomont.":
1 g$="Porphyry":
1 g$="Placidus"
1 g$="Meridian":
1 g$="Koch":
1 g$="Equal":
1 g$="Campanus":
1 ffff,.00045
1 fff,74.1757
1 fff,-.0153
1 fff,-.0003
1 f=(ll-n)/m:
1 f(i)=b(j):
1 e1=.01720209
1 e(i)=a(j):
1 e(i),f(i);o$(i):
1 e$=e$+"(+P"+
1 decl+(decl-
1 d(RAMC)/15
1 d(RAMC)+d+a2*
1 d$=a$+x$+" "+y$
1 c$(i)=n$((i-1
1 b(j)=b(j)+b:
1 a~(#,3033.6879
1 a(j)=a(j)+a:
1 a(j),b(j);o$(i)
1 a$=p$(i,21
1 a$=a$+x$+b$+y$
1 `,19139.8585
1 [333,.0003
1 Y,427.2742
1 S&ff,-17.7
1 RRRUURU<BB$
1 RADIX VII HAS NOW BEEN LOADED
1 Press 1-7 for desired system"
1 PROGRESSIONS
1 PRESS ENTER TO RUN PROGRAM
1 PRESS 1-7 FOR REQUIRED OPTION
1 OL=OLd+OLm/60
1 NB=NBd+NBm/60
1 LSTs;"s ";''
1 LSTm=(LSTs-LSTh)*60
1 LQ-.0130125
1 LA=NBd+NBm/100
1 Entry page
1 CI=CI1+j/36525
1 CI=((j-2415020
1 Bfff,-.0002
1 BR=.0057683
1 AZI and ALTI
1 >,338.9117
1 ;x$;bd;b$;bm;
1 ;o$(i);" ";ad;y$;am;
1 ;m$;" ";s$
1 ;g$;" houses"
1 ;'"Heliocentric:";
1 ;"y. ENABLE SEQUENCE STOP";
1 ;"ST=";LSTh;"h";
1 ;"ST: ";LSTh;"h";
1 ;"REGIOMONTANUS":
1 ;"PROGRESSIONS";
1 ;"PORPHYRY":
1 ;"PLANETS":
1 ;"PLANETS"
1 ;"OPTIONS":
1 ;"MO";":";
1 ;"MERIDIAN":
1 ;"Long:ddd";"
1 ;"Lat:dd";"
1 ;"LOcAL HOrizON":
1 ;"LOcAL HOrizON"'
1 ;"HOUSES";" (";g$;")"'':
1 ;"HOUSE SYSTEMS";
1 ;"GMT:hh";"
1 ;"GMT: ";i$:
1 ;"GMT: ";i$(
1 ;"Event: ";
1 ;"Copy Mode":
1 ;"Copy Mode"
1 ;"CAMPANUS":
1 ;"AZIMUTH";
1 ;"ALTITUDE";
1 ;"7. Progressions"
1 ;"7. CAMPANUS";
1 ;"6. PORPHYRY";
1 ;"6. Loc.Horizon&decl.";
1 ;"5. MERIDIAN";
1 ;"5. Aspects";
1 ;"4. REGIOMONTANUS";
1 ;"4. Planet Positions";
1 ;"3. LOCAL HORIZON":
1 ;"3. LOCAL HORIZON"
1 ;"3. EQUAL";
1 ;"3. Chart Wheel";
1 ;"2. KOCH ";
1 ;"2. Input/New";
1 ;"1. PLACIDUS";
1 ;"1. Copy";
1 ;"*Mme SOSOSTRIS*":
1 ;"*ASTRO COMPUTING*"
1 ;" RADIX VII ";
1 ;" ENTER?":
1 ;" long. lat.
1 ;" Press any key for menu":
1 ;" PRESS ANY KEY FOR
1 9*0U,54.3841
1 4m,75.7796
1 333,-.00426
1 333,-.0005
1 3. LOCAL HORIZON
1 2fff,-.0006
1 2. OTHER HOUSE SYSTEM
1 1. PLACIDUS HOUSES
1 ,start-256
1 ,35999.0498
1 ,240.45516
1 ,149472.515
1 ,130.68415
1 ,1223.50796
1 +2400.0513
1 +1732564379
1 +1602961611
1 *CI*CI+gmt)*15
1 *(year+4800
1 )="water "+
1 )="fire "+
1 )="earth "+
1 )="air "+
1 )="PF"+":"+l$:
1 )="NO"+":"+l$
1 )="MO"+":"+m$+" "+s$:
1 (x/mo)*mo)
1 (ramc+dn):
1 (ramc+dn)*
1 (XX*XX+YY*YY+ZZ*ZZ)*
1 ((v*CI+w)*
1 (((u-z3)*60
1 &~($,273.393
1 $6ff,-61.4
1 "fff,.0145
1 "Years ";j
1 "ST: ";LSTh;"h";
1 "GMT: ";i$(
1 ";"year: ";
1 !*CI+2.58e-5
1 of"''" secondary progressions."
1 long. lat."
1 car fix mut":
1 Enter number of years"''"
1 1984 by MADAME SOSOSTRIS"
1 House routine runs